home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / geom / geomeqns.sty < prev    next >
Text File  |  1993-01-11  |  2KB  |  44 lines
  1. % $Header: /a/tampa/h/tampa_a/fac/levy/texts/geombook/RCS/geomeqns.sty,v 1.5 92/07/13 21:54:29 levy Exp $
  2.  
  3. % format equation numbers like subsection numbers
  4.  
  5. \def\@eqnnum{\hbox{\normalshape\bf \theequation.}}
  6.  
  7. % set equations on left side
  8.  
  9. \def\equation{$$ % $$ BRACE MATCHING HACK
  10.   \def\object@type{equation}\refstepcounter{equation}}
  11. \def\endequation{\leqno \@eqnnum % $$ BRACE MATCHING HACK
  12.   $$\global\@ignoretrue}
  13.  
  14. \def\eqnarray{\def\object@type{equation}\stepcounter{equation}%
  15.   \edef\@currentlabel{\theequation}
  16.   \global\@eqnswtrue\global\@eqcnt\z@\tabskip\@centering\let\\=\@eqncr
  17.   $$\halign to\displaywidth\bgroup\@eqnsel\hskip\@centering % $$BRACE MATCHING
  18.     $\displaystyle\tabskip\z@{##}$&\global\@eqcnt\@ne\hfil${}##{}$\hfil
  19.     &\global\@eqcnt\tw@ $\displaystyle\tabskip\z@{##}$\hfil 
  20.      \tabskip\@centering&\llap{##}\tabskip\z@\cr}
  21. \def\endeqnarray{\@@eqncr\egroup
  22.       \global\advance\c@equation\m@ne$$\global\@ignoretrue}
  23. \def\@@eqncr{\let\@tempa\relax 
  24.     \ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &} 
  25.       \else \def\@tempa{&}\fi 
  26.      \@tempa 
  27.      \if@eqnsw\hbox to .01pt{}\rlap{\rm \hskip -\displaywidth\@eqnnum}%
  28.      \stepcounter{equation}\fi
  29.      \global\@eqnswtrue\global\@eqcnt\z@\cr}
  30.  
  31. % $Log:    geomeqns.sty,v $
  32. %Revision 1.5  92/07/13  21:54:29  levy
  33. %further cleaned up the environments
  34. %
  35. %Revision 1.4  92/07/13  08:46:04  levy
  36. %theoremSt -> Theorem
  37. %
  38. %Revision 1.3  92/04/02  09:08:39  levy
  39. %*** empty log message ***
  40. %
  41. %Revision 1.2  1992/03/20  19:17:42  levy
  42. %*** empty log message ***
  43. %
  44.